<%option explicit %>
<%
Response.Expires = -10

'Declaración de variables 
Dim oProyecto
Dim oXml, oXmlTareas,oXmlCA
Dim bProyectosResponsable,bProyectosPendientes, bCAPendientes
Dim iCantiPendientes , iCantiEnProceso, iCantiCA
Dim oCbo
Dim idRol
Dim oSeguridad ,bComboIngenieros
Dim sHoy
Dim sError ,sDetalleTecnico

on error resume next

'Constantes de Permisos
const idPermiPedidosPendientes = 33
const idPermiProyectosAsignados = 32
const idPermiCambioAlcancePendientes = 34
const idPermiImprimirProyectosAsignados = 35
const idPermiImprimirPedidosPendientes = 40
const idPermiImprimirCambiosAlcancePendientes = 41
const idPermiEnlaceProyectoAsignado = 43 
const idPermiSeleccionarIngenieros = 36
const idPermiTratarCambioAlcance = 42
const idPermiDetallePedidoPendiente = 39
const idPermiAsignarPedido = 37
const idPermiAutoAsignarPedido = 38
'fin constantes de Permisos



if Session("idUsuario") = ""  then
	sError = "La sesión de trabajo ha terminado.<br>Para iniciar una nueva sesión cierre esta ventana e ingrese nuevamente al Sistema." 
	err.Raise 50000,"user","Se Perdió la session"
	sDetalleTecnico = "Se Perdió la session"
end if	

'Creo los objetos DCOM a utilizar
Set oCbo = Server.CreateObject("SIGINCombo_P.cCombo")
Set oXml = Server.CreateObject("Microsoft.XMLDOM")
Set oXmlTareas = Server.CreateObject("Microsoft.XMLDOM")
Set oXmlCA = Server.CreateObject("Microsoft.XMLDOM")    
Set oProyecto = Server.CreateObject("SIGINProyectos_N.cProyecto") 
Set oSeguridad = Server.CreateObject ("SIGINSeguridad_N.cSeguridad")


'obtengo los valores parámetricos
idRol = oSeguridad.TraerIDRol(Session("IdUsuario"))

if Err.number <> 0 then
	if sError = "" Then
		sError = "Algunas parámetros del sistema no han sido completados." 
	end if	
	sDetalleTecnico = err.Description 
end if	

'Seguridad 
if oSeguridad.TienePermiso(idRol,idPermiSeleccionarIngenieros) = "1" then
	bComboIngenieros = true
else
	bComboIngenieros =	false
end if	


'Consulto los poryectos pendientes para el usuario logueado y los que estan pendiente
'a asignar, ademas los Cambios de Alcance(CA)
oXml.loadXML(oProyecto.ProyectosPendientesConsul(1))
oXmlTareas.loadXML(oProyecto.ProyectosAsignadoResponsableConsul(Session("IdUsuario")))
oXmlCA.loadXML(oProyecto.CambiosAlcanceConsul("","P"))

if Err.number <> 0 then
	if sError = "" Then
		sError = "Existe un error en la consulta de datos de proyectos." 
	end if	
	sDetalleTecnico = err.Description 
end if	

'Hay Proyectos pendientes ???
if oXml.childNodes(0).childNodes.length > 0 then
	bProyectosPendientes = true
	iCantiPendientes = oXml.childNodes(0).childNodes.length
else
	bProyectosPendientes = false
	iCantiPendientes = 0
end if 	


'Hay Tareas para el responsable logueado ??
if oXmlTareas.childNodes(0).childNodes.length > 0 then
	bProyectosResponsable = true
	iCantiEnProceso = oXmlTareas.childNodes(0).childNodes.length
	
else
	bProyectosResponsable = false
	iCantiEnProceso = 0
	
end if 	


'Hay Cambios de Alcance pendientes ??
if oXmlCA.childNodes(0).childNodes.length > 0 then
	bCAPendientes = true
	iCantiCA = oXmlCA.childNodes(0).childNodes.length
else
	bCAPendientes = false
	iCantiCA = 0
end if 	

 
'Destruyo objetos que ya no utilizo
Set oProyecto = nothing

sHoy = right("0" & day(date),2) & "/" & right("0" & month(date),2) & "/" & year(date())

%>
<html>
<xml id="xmldso"><%=oXml.xml%></xml>
<xml id="xmldsoTareas"><%=oXmlTareas.xml%></xml>
<xml id="xmlCA"><%=oXmlCA.xml%></xml>
<head>
<link rel="stylesheet" type="text/css" href="../Styles/sigin.css">
<LINK rel="stylesheet" type="text/css" href="../Styles/menu.CSS">
<script Language="JavaScript" src="../Librerias/Paginacion.js"></script>
<script Language="JavaScript" src="../Librerias/XML/XSLUtiles.js"></script>
<!--#include virtual = "/sigin/Librerias/UtilesSIGIN.asp"-->
<script language="javaScript">
var iTimeID
var oTD
var oTR

function Inicio()
{

	 	
	<% if oSeguridad.TienePermiso(idRol,idPermiProyectosAsignados) = "1" Then %>
		CalcularPaginacion("tblTareas","lblCantiRegisEP","txtPageSizeEP","lblCantiPagiEP","lblPaginaActualEP")
	<%end if%>	
	
	<% if oSeguridad.TienePermiso(idRol,idPermiPedidosPendientes) = "1" Then %>
		CalcularPaginacion("tblPendientes","lblCantiRegisTP","txtPageSizeTP","lblCantiPagiTP","lblPaginaActualTP")
	<%end if%>	
	
	<% if oSeguridad.TienePermiso(idRol,idPermiCambioAlcancePendientes) = "1" Then %>
			CalcularPaginacion("tblCA","lblCantiRegisCA","txtPageSizeCA","lblCantiPagiCA","lblPaginaActualCA")
	<%end if%>	

	//Oculta el mensaje de Aguarde en los menues superiores
	window.top.window.frames(0).document.all.divMensaje.style.display = "none"	
}
function AutoAsignar(TD)
{
	<% if  oSeguridad.TienePermiso(idRol,idPermiAutoAsignarPedido) = "0" Then %>	
		alert("No posee autorización para autoasignarse el Pedido.");
		return	 
	<% end if%>
	
	oTD = TD
	window.document.all.Mensaje.style.display = "block"
	iTimeID = window.setInterval("AutoAsignar1()",1) 
}

function AutoAsignar1()
{
	window.clearInterval(iTimeID)

   var idResponsable = "<%=Session("IdUsuario")%>"
   var sCodigo
   var idProyecto = oTD.parentElement.parentElement.cells(7).children(0).innerText
   var sPagina = "PupResponsable.asp?idProyecto=" + idProyecto + "&idResponsable=" + idResponsable

  	DatosAsignacion.idResponsable = ""
	DatosAsignacion.sCodigo = ""
  	DatosAsignacion.sError = ""
	DatosAsignacion.sDetalleTecnico = ""	
   
   iRet = window.showModalDialog(sPagina,DatosAsignacion,"dialogHeight:15;dialogwidth:30") 
   	
	if (!iRet)
	 {	window.document.all.Mensaje.style.display = "none";return}

	if (DatosAsignacion.sError != "")//Se produjo un error en la ventana modal
	 {
		alert("Se produjo un error al intentar acceder a la asignación.\n\nError: \n" + DatosAsignacion.sDetalleTecnico +"\n\nCierre el Sistema e intente ingresar nuevamente.")
		window.document.all.Mensaje.style.display = "none"
		return;	 
	 }
	
	
	idResponsable  = DatosAsignacion.idResponsable
	sCodigo = DatosAsignacion.sCodigo
	
	if (idResponsable == "")
		{ alert("No ha seleccionado el Responsable(Ingeniero de Proyecto).");window.document.all.Mensaje.style.display = "none";return }
	
	if (sCodigo == "")	
		{ alert("Complete el código de proyecto.");window.document.all.Mensaje.style.display = "none";return }
		
  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "AsignarProyecto"
	RSXML.Ejecutar(idProyecto,idResponsable,sCodigo)

	if (RSXML.Mensaje == ""){
		EnviarMail(idProyecto)
		alert ("Autoasignación completada.")
		Consultar()
		}

window.document.all.Mensaje.style.display = "none"
}

function EnviarMail(idProyecto)
{

	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "EnviarMailAsignacionIngProyecto"
	RSXML.Ejecutar(idProyecto)
	
	
}
function DatosAsignacion()
{
	var idResponsable
	var sCodigo
	var sError
	var sDetalleTecnico
}

function Asignar(TD)
{
	<% if  oSeguridad.TienePermiso(idRol,idPermiAsignarPedido) = "0" Then %>	
		alert("No posee autorización para asignar Pedidos.");
		return	 
	<% end if%>
	
	oTD = TD
	window.document.all.Mensaje.style.display = "block"
	iTimeID = window.setInterval("Asignar1()",1) 
}

function Asignar1()
{

	window.clearInterval(iTimeID) 
   var idResponsable 
   var idProyecto = oTD.parentElement.parentElement.cells(7).children(0).innerText
   var sPagina = "PupResponsable.asp?idProyecto=" + idProyecto
  
	DatosAsignacion.idResponsable = ""
	DatosAsignacion.sCodigo = ""
  	DatosAsignacion.sError = ""
	DatosAsignacion.sDetalleTecnico = ""	

   iRet = window.showModalDialog(sPagina,DatosAsignacion,"dialogHeight:15;dialogwidth:30") 
   
	
	if (!iRet)
	 {	window.document.all.Mensaje.style.display = "none";return;}

	if (DatosAsignacion.sError != "")//Se produjo un error en la ventana modal
	 {
		alert("Se produjo un error al intentar acceder a la asignación.\n\nError: \n" + DatosAsignacion.sDetalleTecnico +"\n\nCierre el Sistema e intente ingresar nuevamente.")
		window.document.all.Mensaje.style.display = "none"
		return;	 
	 }

	idResponsable  = DatosAsignacion.idResponsable
	sCodigoParcial = DatosAsignacion.sCodigo
	
	if (idResponsable == "")
		{ alert("No ha seleccionado el Responsable(Ingeniero de Proyecto).");window.document.all.Mensaje.style.display = "none";return }
	
	if (sCodigoParcial == "")	
		{ alert("Complete el código de proyecto.");window.document.all.Mensaje.style.display = "none";return }
	 
  	
  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "AsignarProyecto"
	RSXML.Ejecutar(idProyecto,idResponsable,sCodigoParcial)

	if (RSXML.Mensaje == ""){
		EnviarMail(idProyecto)
		alert ("El proyecto se asignó correctamente.")
		Consultar()
		}

	window.document.all.Mensaje.style.display = "none"
}

function DetalleProyecto(TD)
{
	<% if  oSeguridad.TienePermiso(idRol,idPermiDetallePedidoPendiente) = "0" Then %>	
		alert("No posee autorización para ver el Detalle del Pedido.");
		return	 
	<% end if%>
	
	oTD = TD
	window.document.all.Mensaje.style.display = "block"
	iTimeID = window.setInterval("DetalleProyecto1()",1) 
}

function DetalleProyecto1()
{
   window.clearInterval(iTimeID) 
   var idProyecto = oTD.parentElement.cells(7).children(0).innerText
   var sRutaJerar = oTD.parentElement.cells(2).children(0).innerText
   var sPagina = "../Proyectos/DetaProyecto.asp?idProyecto=" 
   sPagina = sPagina + idProyecto + "&sCaller=P&sRutaJerar=" + sRutaJerar 
   
   window.document.all.txtError.value = ""
   
   window.showModalDialog(sPagina,document,"DialogWidth:40;DialogHeight:33")   
    
   window.document.all.Mensaje.style.display = "none"
   
   if (window.document.all.txtError.value != "")
    {
    	alert("Se produjo un error al intentar acceder al detalle del pedido.\n\nError: \n" + window.document.all.txtDetalleTecnico.value +"\n\nCierre el Sistema e intente ingresar nuevamente.")
		return;	     
    }
}
function IraProyecto(TR)
{
	<% if  oSeguridad.TienePermiso(idRol,idPermiEnlaceProyectoAsignado) = "0" Then %>	
		alert("No posee autorización para ver el Detalle del Proyecto.");
		return	 
	<% end if%>
	
	oTR = TR
	window.document.all.Mensaje.style.display = "block"
	iTimeID = window.setInterval("IraProyecto1()",1) 

}

function IraProyecto1()
{
	window.clearInterval(iTimeID) 
   var idProyecto = oTR.cells(4).children(0).innerText
   var sProyecto = oTR.cells(1).children(0).innerText
   var sJerar = oTR.cells(0).children(0).innerText
   var sPagina = "../Proyectos/arbolInstancia.asp?idProyecto=" + idProyecto +"&sProyecto=" + sProyecto + "&sRutaJerar=" + sJerar + "&From=../Pendientes/tareas";
   
   window.location.href = sPagina
   

}
function CambiarTareasPendientes()
{

	 //if (window.document.all.cboIngProyecto.value == "")
		//return

  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "ProyectosAsignadoResponsableConsul"
	RSXML.Ejecutar(window.document.all.cboIngProyecto.value)
	
	window.document.all.xmldsoTareas.loadXML(RSXML.Resultado)
	
	
	//alert(window.document.all.xmldsoTareas.childNodes(0).childNodes.length)
	
	
	if (xmldsoTareas.childNodes(0).childNodes.length > 0)
	  {
		window.document.all.tblNoTareas.style.display = "none"
		window.document.all.tblTareas.style.display = ""
		window.document.all.tblEncaTblEP.style.display = ""
		window.document.all.tblBotonesEP.style.display = ""		
		window.document.all.lblCantiRegisEP.innerText = xmldsoTareas.childNodes(0).childNodes.length
		CalcularPaginacion("tblTareas","lblCantiRegisEP","txtPageSizeEP","lblCantiPagiEP","lblPaginaActualEP")
	  }
	else
	  {
		window.document.all.tblTareas.style.display = "none"
		window.document.all.tblEncaTblEP.style.display = "none"
		window.document.all.tblBotonesEP.style.display = "none"
		
		window.document.all.tdMensajeNoTareas.innerText = "No existen Tareas para " + window.document.all.cboIngProyecto.options(window.document.all.cboIngProyecto.selectedIndex).text 
		window.document.all.tblNoTareas.style.display = ""
	  
	  } 	


}

function EditarCambioAlcance(oIMG)
{

	
	<% if  oSeguridad.TienePermiso(idRol,idPermiTratarCambioAlcance) = "0" Then %>	
		alert("No posee autorización para gestionar Cambios de Alcance Pendientes.");
		return	 
	<% end if%>
		
	var idCambioAlcance = oIMG.parentElement.parentElement.cells(5).children(0).innerText

	var sPagina = "../Proyectos/EditarCambioAlcance.asp?idCambioAlcance=" + idCambioAlcance
	var sRetorno
	
	window.document.all.txtDetalleTecnico.value = ""
	window.document.all.txtError.value = ""
	
	sRetorno = window.showModalDialog(sPagina,document,"Dialogheight:500px;DialogWidth:650px");
	
	if (!sRetorno)
		return;

    if ( window.document.all.txtError.value != "")
     {
    	alert("Se produjo un error al intentar acceder a la edición del Cambio de Alcance.\n\nError: \n" + window.document.all.txtDetalleTecnico.value +"\n\nCierre el Sistema e intente ingresar nuevamente.")
		return;	     
     }
		
	Consultar();	

}

function Consultar()
{

  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "ProyectosPendientesConsul"
	RSXML.Ejecutar(1)
	
	xmldso.loadXML(RSXML.Resultado)
	
	if (xmldso.childNodes(0).childNodes.length > 0)
	  {
		window.document.all.tblNoPendientes.style.display = "none"
		window.document.all.tblPendientes.style.display = ""
		window.document.all.tblEncaTblTP.style.display = ""
		window.document.all.tblBotonesTP.style.display = ""
		window.document.all.lblCantiRegisTP.innerText = xmldso.childNodes(0).childNodes.length
		
		CalcularPaginacion("tblPendientes","lblCantiRegisTP","txtPageSizeTP","lblCantiPagiTP","lblPaginaActualTP")
	  }
	else
	  {
		window.document.all.tblPendientes.style.display = "none"
		window.document.all.tblEncaTblTP.style.display = "none"
		window.document.all.tblBotonesTP.style.display = "none"		
		window.document.all.tblNoPendientes.style.display = ""
	  
	  } 
	
	
  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "ProyectosAsignadoResponsableConsul"
	RSXML.Ejecutar("<%=Session("IdUsuario")%>")
	
	xmldsoTareas.loadXML(RSXML.Resultado)

	if (xmldsoTareas.childNodes(0).childNodes.length > 0)
	  {
		window.document.all.tblNoTareas.style.display = "none"
		window.document.all.tblTareas.style.display = ""
		window.document.all.tblEncaTblEP.style.display = ""
		window.document.all.tblBotonesEP.style.display = ""		
		window.document.all.lblCantiRegisEP.innerText = xmldsoTareas.childNodes(0).childNodes.length
		CalcularPaginacion("tblTareas","lblCantiRegisEP","txtPageSizeEP","lblCantiPagiEP","lblPaginaActualEP")
	  }
	else
	  {
		window.document.all.tblTareas.style.display = "none"
		window.document.all.tblEncaTblEP.style.display = "none"
		window.document.all.tblBotonesEP.style.display = "none"
		window.document.all.tblNoTareas.style.display = ""
	  
	  }

  	RSXML.ClassId = "SIGINProyectos_N.cProyecto"
	RSXML.vbComponente = true
	RSXML.Metodo = "CambiosAlcanceConsul"
	RSXML.Ejecutar("","P")
	
	xmlCA.loadXML(RSXML.Resultado)

	if (xmlCA.childNodes(0).childNodes.length > 0)
	  {
		window.document.all.tblNoCA.style.display = "none"
		window.document.all.tblCA.style.display = ""
		window.document.all.tblEncaTblCA.style.display = ""
		window.document.all.tblBotonesCA.style.display = ""		
		window.document.all.lblCantiRegisCA.innerText = xmlCA.childNodes(0).childNodes.length
		CalcularPaginacion("tblCA","lblCantiRegisCA","txtPageSizeCA","lblCantiPagiCA","lblPaginaActualCA")
	  }
	else
	  {
		window.document.all.tblCA.style.display = "none"
		window.document.all.tblEncaTblCA.style.display = "none"
		window.document.all.tblBotonesCA.style.display = "none"
		window.document.all.tblNoCA.style.display = ""
	  
	  } 	   

		

}

function salidaTabla()
{
 if (window.event.srcElement.tagName == "TD" )
 	window.event.srcElement.parentElement.className = "cCelda"

 if (window.event.srcElement.tagName == "LABEL" )
 	window.event.srcElement.parentElement.parentElement.className = "cCelda"
 	
}

function entradaTabla()
 {
	
	if (window.event.srcElement.tagName == "TD" )
	 {
		window.event.srcElement.parentElement.className = "filatablaselec"
		window.event.srcElement.parentElement.style.cursor = "hand"
		//alert(window.event.srcElement.parentElement.innerHTML)
     }	

	if (window.event.srcElement.tagName == "LABEL" )
	 {
		window.event.srcElement.parentElement.parentElement.className = "filatablaselec"
		window.event.srcElement.parentElement.parentElement.style.cursor = "hand"
		//alert (window.event.srcElement.parentElement.parentElement.innerHTML)
     }	
 
 
}


function Imprimir(tabla,sTitulo)
{
	var tbl = eval( "window.document.all." + tabla)
	var ind, fila,col
	var sXmlCampos =  "<raiz>"
	var sTabla
	var iRet
	var oXmlSeleccionado = new ActiveXObject("Microsoft.xmldom")
	var sXmlReporte

	if (tabla == "tblCA")//Cambios de Alcance
	 {
		<% if  oSeguridad.TienePermiso(idRol,idPermiImprimirCambiosAlcancePendientes) = "0" Then %>	
			alert("No posee autorización para imprimir la consulta de Cambios de Alcance Pendientes.");
			return	 
		<% end if%>
	 }
	else
	 {
	  if (tabla == "tblPendientes")//Proyectos Asignados
	   {
			<% if  oSeguridad.TienePermiso(idRol,idPermiImprimirProyectosAsignados) = "0" Then %>	
				alert("No posee autorización para imprimir la consulta de Proyectos Asignados.");
				return	 
			<% end if%>	   
	   }
	  else//Informes
	   {
		<% if  oSeguridad.TienePermiso(idRol,idPermiImprimirPedidosPendientes) = "0" Then %>	
			alert("No posee autorización para imprimir la consulta de Pedidos Pendientes de Asignación.");
			return	 
		<% end if%>	   
	   }
	 } 
	


/*Formato del XML que debo enviar
'<reporte>
'	<cabeceraReporte titulo="tituloreporte" fecha="12/12/2002" autor="rpereyra" ></cabeceraReporte>
'	<cabeceraTabla>
'		<campo nombre="nombre" ancho='50'></campo>
'		<campo nombre="otro" ancho='90'></campo>
'	</cabeceraTabla>
'	<cuerpoTabla>
'		<fila c1="primer" c2="otro1" />
'		<fila c1="segundo" c2="otro2" />
'	</cuerpoTabla>
'</reporte>*/
	
	
	
	//Creo la Cabecera de Reporte..
	sXmlReporte = "<reporte>"
	sXmlReporte += "<cabeceraReporte titulo='Resultado de Consulta de " + sTitulo + "' " 
	sXmlReporte += "fecha='<%=sHoy%>' " 
	sXmlReporte += "autor='<%=Session("NombreUsuario")%>' ></cabeceraReporte>"


	//Pregunto al usuario que campos de la tabla debo incorporar
	sXmlCampos =  "<raiz>"
	for (ind=0;ind<tbl.rows(0).cells.length;ind++)
		sXmlCampos = sXmlCampos + "<campo>" + tbl.rows(0).cells(ind).innerText + "</campo>"
	sXmlCampos = sXmlCampos + "</raiz>"
	iRet = window.showModalDialog("../ConfigurarImpresion.asp?sXml=" + sXmlCampos,document)
	if (!iRet) //si cancela no hago nada
		return

	//Cargo lo seleccionado en un objeto XML
	oXmlSeleccionado.loadXML(iRet)

	//Oculto todas las columnas de la tabla real 
	for (fila=0;fila<tbl.rows.length;fila++)
		for (ind=0;ind<tbl.rows(0).cells.length;ind++)
			tbl.rows(fila).cells(ind).style.display = "none"

	//vario las filas de la tabla
	for (fila=0;fila<tbl.rows.length;fila++)
	 {  //vario las columnas
		for (ind=0;ind<tbl.rows(0).cells.length;ind++)
		 {
			col=0; 
			while (col < oXmlSeleccionado.childNodes(0).childNodes.length)
			   {
				//Si esta seleccionado el campo lo hago visible  
				if (tbl.rows(0).cells(ind).innerText == oXmlSeleccionado.childNodes(0).childNodes(col).text)
				 {
					tbl.rows(fila).cells(ind).style.display = "block"
				 }	
				col++;
				}
		 }
	 }
	 
 
	//Agrego en un texto xml que servira de parámetro para la pagina de reporte
	//la cabecera de la tabla a imprimir
	sXmlReporte += "<cabeceraTabla> "
	for (ind=0;ind<tbl.rows(0).cells.length;ind++)
	 {
		if (tbl.rows(0).cells(ind).style.display == "block")
			sXmlReporte += "<campo nombre='" + tbl.rows(0).cells(ind).innerText + "' ancho='" + tbl.rows(0).cells(ind).width + "'>" + "</campo>"
      }		
	sXmlReporte += "</cabeceraTabla> "	


	//ahora cargo en el texto xml de parametro los datos
	var cCont 
	sXmlReporte += "<cuerpoTabla> "
	for (fila=1;fila<tbl.rows.length;fila++)
	 {	
		sXmlReporte += "<fila "
		cCont = 1
		for (ind=0;ind<tbl.rows(fila).cells.length;ind++)
		 {
			
			if (tbl.rows(fila).cells(ind).style.display == "block")
			 {
			 	sXmlReporte += "c" + cCont + "='" + tbl.rows(fila).cells(ind).innerText  + "' "
			 	cCont = cCont + 1
			 }	

		  }		
		sXmlReporte += " ></fila> "	  
	}	
	
	sXmlReporte += "</cuerpoTabla> "
	sXmlReporte += "</reporte>"
	

	//lo cargo en un objeto para ver si es correcto el XML
	oXmlSeleccionado.loadXML(sXmlReporte)

	//verifico lo anterior
	if (!oXmlSeleccionado.childNodes(0).hasChildNodes())
		{
			alert("No se ha podido realizar el reporte.\nExiste un error en los datos.")
			return
		}
	
	window.formReporte.txtDatos.value = sXmlReporte
	window.formReporte.submit()

	//hago visible todos las campos de la tabla
	for (fila=0;fila<tbl.rows.length;fila++)
		for (ind=0;ind<tbl.rows(0).cells.length;ind++)
			tbl.rows(fila).cells(ind).style.display = "block"
	
		

}
function ImprimirVentana()
{
  
  factory.printing.header = "Reporte SIGIN - RepsolYPF";
  factory.printing.footer = "";
  factory.printing.portrait = false;
  factory.printing.leftMargin = 3.0;
  factory.printing.topMargin = 3.0;
  factory.printing.rightMargin = 3.0;
  factory.printing.bottomMargin = 3.0;

  factory.printing.Print(true, window.document.frames["frmReporte"] )
  
}

function Ayuda()
{
	window.open("../ayudaonLine/PendienteAyuda.htm",null,"height=500 ,width=700,status=no,toolbar=no,menubar=no,location=no,top=10,left=10,resizable=yes");
}
</script>
</head>
<body onLoad="Inicio()"  bgcolor="#081852">
<OBJECT id=factory style="DISPLAY: none"     codebase="../Librerias/ScriptX.cab#Version=6,1,431,8" 
classid=clsid:1663ed61-23eb-11d2-b92f-008048fdd814 viewastext></OBJECT>
<object align="absBottom" data="../Librerias/ObjSrvConXML.htm" id="RSXML" style="position:absolute; left:0; top:0; width:0; height:0" type="text/x-scriptlet" border="0" VIEWASTEXT></object>
<form id="formReporte" name="formReporte"  action="../Informe.asp" method="POST" target="frmReporte"  >
	<input type="hidden" id="txtDatos" name="txtDatos" onClick="ImprimirVentana()"> 
</form>
<div id="img" style="LEFT: 2px; TOP: 7px; POSITION: absolute; Z-INDEX: 0; width: 300px; height: 200px;; visibility: visible" bgcolor="black"> 
  <img SRC="../images/Fondo1.jpg" WIDTH="215" HEIGHT="144" align="left" > 
</div>
 <input type="hidden" id="txtDetalleTecnico" >
 <input type="hidden" id="txtError" >  
<div id="data" style="LEFT: 0px; TOP: 0px; POSITION:absolute; Z-INDEX: 1; width:100%; height: 100%; overflow:auto; visibility: visible" align=center> 
<table width="98%" >
   <tr> 
     <td colspan=3 align="right" ><img src="../images/helpenlinea.gif" width="22px" height="27px" onClick="Ayuda()" style="cursor:hand" alt="Ayuda en Línea." >   </td>
   </tr>
</table>   
<table width="100%" border="0" align="left">
  <% if oSeguridad.TienePermiso(idRol,idPermiProyectosAsignados) = "1" Then %>
  <tr>
    <td>
		<table id="tblEncaTblEP" width="95%" align="center"  <%if NOT bProyectosResponsable then %>style="display:none" <%end if%> >
		
			<tr>
				<td class="campo" align="left">Cantidad de Registros:&nbsp;<label id="lblCantiRegisEP"><%=iCantiEnProceso%></label>&nbsp;&nbsp;&nbsp;&nbsp;<img src="../images/impresora.gif" onClick="Imprimir('tblTareas','Proyectos Pendientes')" width="20px" height="20px" alt="Imprime la grilla"  style="cursor:hand"></td>
				<td class="campo" align="right">Página :&nbsp;<label id="lblPaginaActualEP">1</label>&nbsp;de&nbsp;<label id="lblCantiPagiEP" name="lblCantiPagiEP"></label></td>													
				</tr>	
		</table>		        
		<table width="95%" border="1" align="center" cellspacing="0" cellpadding="0" >
          <tr> 
          <td  class="botonselec">T A R E A S &nbsp;&nbsp;&nbsp;&nbsp; P A R A  <%=oCbo.DrawCombo ("cboIngProyecto","cboIngProyecto","cboIngProyecto","botonselec","Todos los Ingenieros de Proyecto",Session("IdUsuario"),"OnChange","CambiarTareasPendientes()",(not bComboIngenieros))%></td>
        </tr>
		</table>		
        <table datasrc="#xmldsoTareas" width="95%" border="1" cellpadding="1" cellspacing="1"  class="tituloTabla" datapagesize="5" id="tblTareas" align="center" <%if NOT bProyectosResponsable then %>style="display:none" <%end if%>>
          <thead> 
				<tr class="cCeldaSelec" align="center" style="cursor:hand"> 
				  <td width="50%"  onclick="ordenar(xmldsoTareas,'JERAR')" title="Ordenar Por Jerarquía" >             <div align="center">U.E./Zona/Yac/Instalación</div>          </td>
				  <td width="30%" onClick="ordenar(xmldsoTareas,'NOMBRE')" title="Ordenar Por Nombre" >             <div align="center">Nombre</div>          </td>
				  <td width="30%" onClick="ordenar(xmldsoTareas,'TIPO')" title="Ordenar Por Tipo" >             <div align="center">Tipo</div>          </td>
				  <td width="20%" onClick="ordenar(xmldsoTareas,'ESTADO')" title="Ordenar Por Estado" >             <div align="center">Estado</div>          </td>
				</tr>
           </thead>
        <tbody>
			<tr align="left" class="cCelda" onClick="IraProyecto(this)" onMouseOver="entradaTabla()" onMouseOut="salidaTabla()">
				<td width="28%">&nbsp;<label datafld="JERAR"></label></td>
				<td width="18%">&nbsp;<label datafld="NOMBRE"></label></td>
				<td width="18%">&nbsp;<label datafld="TIPO"></label></td>
				<td width="18%">&nbsp;<label datafld="ESTADO"></label></td>
				<td style="display:none">&nbsp;<label datafld="IDPROYECTO"></label></td>
				
			</tr>
        </tbody>
      </table>
	<table id="tblBotonesEP" align="center" width="95%"  <%if NOT bProyectosResponsable then %>style="display:none" <%end if%> >
					<td class="Mano" Title="Primer Página" width="3%" onClick="MasAtras('tblTareas');Repaginar(0,'lblCantiPagiEP','lblPaginaActualEP')" alt="Primer Página"><img style="cursor:hand" alt="Primer Página" src="../images/masatras.gif" WIDTH="16" HEIGHT="16"></td>
					<td class="Mano" Title="Página Anterior" width="3%" onClick="Atras('tblTareas');Repaginar(1,'lblCantiPagiEP','lblPaginaActualEP')" alt="Página Anterior"><img style="cursor:hand" alt="Página Anterior" src="../images/atras.gif" WIDTH="16" HEIGHT="16"></td>
					<td class="Mano" Title="Página Siguiente" width="3%" onClick="Adelante('tblTareas');Repaginar(2,'lblCantiPagiEP','lblPaginaActualEP')" alt="Página Siguiente"><img style="cursor:hand" alt="Página Siguiente" src="../images/adelante.gif" WIDTH="16" HEIGHT="16"></td>
					<td class="Mano" Title="Ultima Página" width="3%" onClick="MasAdelante('tblTareas');Repaginar(3,'lblCantiPagiEP','lblPaginaActualEP')" alt="Última Página"><img style="cursor:hand" alt="Última Página" src="../images/masadelante.gif" WIDTH="16" HEIGHT="16"></td>
					<td></td>
					<td class="campo" align="right" colspan="5">Registros por página:
						<input class="txt" type="text" id="txtPageSizeEP" name="txtPageSizeEP" style="width:40px"  maxlength="4" size="5" onKeyPress="ValidarIngreNume();Refrescar2('tblTareas','txtPageSizeEP');CalcularPaginacionJS('tblTareas','lblCantiRegisEP','txtPageSizeEP','lblCantiPagiEP','lblPaginaActualEP')" value="5">
					</td>
	</table>            
      
	  <table width="90%" border="1"  class="cCeldaSelec"  id="tblNoTareas" align="center" <%if bProyectosResponsable then %>style="display:none" <%end if%>>
        <tr> 
          <td colspan="3" id="tdMensajeNoTareas" >No Existen tareas para <%=Session("NombreUsuario")&" ("&session("userName")&")"%></td>
        </tr>
       </table>      
    </td>
  </tr>
  <%end if%>
  <tr> 
    <td height="10">&nbsp;</td>
  </tr>
<% if oSeguridad.TienePermiso(idRol,idPermiPedidosPendientes) = "1" Then %>
  <tr> 
    <td> 
		<table id="tblEncaTblTP" width="95%" align="center" <%if NOT bProyectosPendientes then %>style="display:none" <%end if%> >
			<tr>
				<td class="campo" align="left">Cantidad de Registros:&nbsp;<label id="lblCantiRegisTP"><%=iCantiPendientes%></label>&nbsp;&nbsp;&nbsp;&nbsp;<img src="../images/impresora.gif" onClick="Imprimir('tblPendientes','Proyectos a Asignar')" width="20px" height="20px" alt="Imprime la grilla"  style="cursor:hand"></td>
				<td class="campo" align="right">Página :&nbsp;<label id="lblPaginaActualTP">1</label>&nbsp;de&nbsp;<label id="lblCantiPagiTP" name="lblCantiPagiTP"></label></td>													
			</tr>	
          <tr> 
          <td colspan="7" class="botonselec" align="center" >P R O Y E C T O S &nbsp;&nbsp;&nbsp;&nbsp;P E N D I E N T E S </td>
        </tr>			
		</table>		        
        <table datasrc="#xmldso" width="95%" datapagesize="5"  cellpadding="1" cellspacing="1" border="1" class="tituloTabla" id="tblPendientes" align="center" <%if NOT bProyectosPendientes then %>style="display:none" <%end if%>>
          <thead> 

        <tr class="cCeldaSelec" align="center" style="cursor:hand"> 
          <td width="4%">&nbsp;</td>
          <td width="4%">&nbsp;</td>
          <td nowrap width="10%"  onclick="ordenar(xmldso,'IDPROYECTO')" title="Ordenar Por Número de Pedido" ><b>N°Pedido</td>
          <td nowrap width="25%"  onclick="ordenar(xmldso,'JERAR')" title="Ordenar Por Jerarquía" ><b>U.E./Zona/Yac/Inst.</b></td>
          <td nowrap width="25%"  onclick="ordenar(xmldso,'NOMBRE')" title="Ordenar Por Nombre" ><b>Nombre</b></td>
          <td nowrap width="15%"  onclick="ordenar(xmldso,'TIPO')" title="Ordenar Por Tipo " ><b>Tipo</b></td>
          <td nowrap width="15%"  onclick="ordenar(xmldso,'CLIENTE')" title="Ordenar Por Cliente" ><b>Cliente</b></td>
         </tr>
        </thead>
        <tbody>
        <tr align="left" class="cCelda" onMouseOver="entradaTabla()" onMouseOut="salidaTabla()"> 
		  <td width="4%"><img src="../IMAGES/asignarProyecto.jpg" style="height:20;width:35;cursor:hand" ALT="Asignar el proyecto a otra persona." onClick="Asignar(this)" WIDTH="34" HEIGHT="33"></td>
		  <td width="4%"><img src="../IMAGES/autoasignar.gif" style="height:25;width:25;cursor:hand" ALT="Autoasignar" onClick="AutoAsignar(this)" WIDTH="30" HEIGHT="30"></td>          		             
          <td nowrap onClick="DetalleProyecto(this)" width="5%">&nbsp;<label datafld="IDPROYECTO"></label></td>
          <td nowrap  onclick="DetalleProyecto(this)" width="30%">&nbsp;<label datafld="JERAR"></label></td>
          <td  nowrap onClick="DetalleProyecto(this)"  width="25%">&nbsp;<label datafld="NOMBRE"></label></td>
          <td   nowrap onClick="DetalleProyecto(this)" width="15%">&nbsp;<label datafld="TIPO"></label></td>
          <td  nowrap  onclick="DetalleProyecto(this)" width="15%">&nbsp;<label datafld="CLIENTE"></label></td>
          <td style="display:none"><label datafld="IDPROYECTO"></label></td>
         </tr>
        </tbody>
      </table>
		<table id="tblBotonesTP" align="center" width="95%" <%if NOT bProyectosPendientes then %>style="display:none" <%end if%> >
						<td class="Mano" Title="Primer Página" width="3%" onClick="MasAtras('tblPendientes');Repaginar(0,'lblCantiPagiTP','lblPaginaActualTP')" alt="Primer Página"><img style="cursor:hand" alt="Primer Página" src="../images/masatras.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Página Anterior" width="3%" onClick="Atras('tblPendientes');Repaginar(1,'lblCantiPagiTP','lblPaginaActualTP')" alt="Página Anterior"><img style="cursor:hand" alt="Página Anterior" src="../images/atras.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Página Siguiente" width="3%" onClick="Adelante('tblPendientes');Repaginar(2,'lblCantiPagiTP','lblPaginaActualTP')" alt="Página Siguiente"><img style="cursor:hand" alt="Página Siguiente" src="../images/adelante.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Ultima Página" width="3%" onClick="MasAdelante('tblPendientes');Repaginar(3,'lblCantiPagiTP','lblPaginaActualTP')" alt="Última Página"><img style="cursor:hand" alt="Última Página" src="../images/masadelante.gif" WIDTH="16" HEIGHT="16"></td>
						<td></td>
						<td class="campo" align="right" colspan="5">Registros por página:
							<input class="txt" type="text" id="txtPageSizeTP" name="txtPageSizeTP" style="width:40px"  maxlength="4" size="5" onKeyPress="ValidarIngreNume();Refrescar2('tblPendientes','txtPageSizeTP');CalcularPaginacionJS('tblPendientes','lblCantiRegisTP','txtPageSizeTP','lblCantiPagiTP','lblPaginaActualTP')" value="5">
						</td>
		</table>            

	  <table width="90%" border="1" class="cCeldaSelec" id="tblNoPendientes" align="center" <%if bProyectosPendientes then %>style="display:none" <%end if%>>
        <tr> 
          <td colspan="3" >No Existen Proyectos Pendientes</td>
        </tr>
       </table>      
      
    </td>
  </tr>
  <%end if%>
  <tr> 
    <td height="10">&nbsp;</td>
  </tr>
  <% if oSeguridad.TienePermiso(idRol,idPermiCambioAlcancePendientes) = "1" Then %>
  <tr> 
    <td> 
		<table id="tblEncaTblCA" width="95%" align="center" <%if NOT bCAPendientes then %>style="display:none" <%end if%> >
			<tr>
				<td class="campo" align="left">Cantidad de Registros:&nbsp;<label id="lblCantiRegisCA"><%=iCantiCA%></label>&nbsp;&nbsp;&nbsp;&nbsp;<img src="../images/impresora.gif" onClick="Imprimir('tblCA','Cambios de Alcance a Tratar')" width="20px" height="20px" alt="Imprime la grilla" style="cursor:hand" ></td>
				<td class="campo" align="right">Página :&nbsp;<label id="lblPaginaActualCA">1</label>&nbsp;de&nbsp;<label id="lblCantiPagiCA" name="lblCantiPagiCA"></label></td>													
				</tr>	
          <tr> 
          <td colspan="7" class="botonselec" align="center" >C A M B I O S  &nbsp;&nbsp;&nbsp;&nbsp;D E&nbsp;&nbsp;&nbsp;&nbsp;  A L C A N C E  &nbsp;&nbsp;&nbsp;&nbsp;P E N D I E N T E S </td>
        </tr>				
		</table>		        
        <table datasrc="#xmlCA" width="95%" datapagesize="5"  cellpadding="1" cellspacing="1" border="1" class="tituloTabla" id="tblCA" align="center" <%if NOT bCAPendientes then %>style="display:none" <%end if%>>
          <thead> 

        <tr class="cCeldaSelec" align="center" style="cursor:hand"> 
          <td >&nbsp;</td>
          <td nowrap width="30%"  onclick="ordenar(xmlCA,'NOMBRE')" title="Ordenar Por Nombre de Cambio de Alcance" >Cambio de Alcance</td>
          <td nowrap width="20%"  onclick="ordenar(xmlCA,'date(FECHA)')" title="Ordenar Por Fecha" >Fecha</td>
          <td nowrap width="20%"  onclick="ordenar(xmlCA,'AUTOR')" title="Ordenar Por Autor" >Autor</td>
          <td nowrap width="30%"  onclick="ordenar(xmlCA,'PROYECTO')" title="Ordenar Por Proyecto" >Proyecto</td>
          
         </tr>
        </thead>
        <tbody>
        <tr align="left" class="cCelda" onMouseOver="entradaTabla()" onMouseOut="salidaTabla()"> 
          <td ><img src="../IMAGES/CA.gif" style="cursor:hand" ALT="Editar el Cambio de Alcance." onClick="EditarCambioAlcance(this)" WIDTH="25" HEIGHT="25"></td>
          <td nowrap style="cursor:default" >&nbsp;<label datafld="NOMBRE"></label></td>
          <td nowrap style="cursor:default"  >&nbsp;<label datafld="FECHA"></label></td>
          <td  nowrap style="cursor:default"  >&nbsp;<label datafld="AUTOR"></label></td>
          <td   nowrap style="cursor:default" >&nbsp;<label datafld="PROYECTO"></label></td>
          <td style="display:none"><label datafld="IDCAMBIOALCANCE"></label></td>          

         </tr>
        </tbody>
      </table>
		<table id="tblBotonesCA" align="center" width="95%" <%if NOT bCAPendientes then %>style="display:none" <%end if%> >
						<td class="Mano" Title="Primer Página" width="3%" onClick="MasAtras('tblCA');Repaginar(0,'lblCantiPagiCA','lblPaginaActualCA')" alt="Primer Página"><img style="cursor:hand" alt="Primer Página" src="../images/masatras.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Página Anterior" width="3%" onClick="Atras('tblCA');Repaginar(1,'lblCantiPagiCA','lblPaginaActualCA')" alt="Página Anterior"><img style="cursor:hand" alt="Página Anterior" src="../images/atras.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Página Siguiente" width="3%" onClick="Adelante('tblCA');Repaginar(2,'lblCantiPagiCA','lblPaginaActualCA')" alt="Página Siguiente"><img style="cursor:hand" alt="Página Siguiente" src="../images/adelante.gif" WIDTH="16" HEIGHT="16"></td>
						<td class="Mano" Title="Ultima Página" width="3%" onClick="MasAdelante('tblCA');Repaginar(3,'lblCantiPagiCA','lblPaginaActualCA')" alt="Última Página"><img style="cursor:hand" alt="Última Página" src="../images/masadelante.gif" WIDTH="16" HEIGHT="16"></td>
						<td></td>
						<td class="campo" align="right" colspan="5">Registros por página:
							<input class="txt" type="text" id="txtPageSizeCA" name="txtPageSizeCA" style="width:40px"  maxlength="4" size="5" onKeyPress="ValidarIngreNume();Refrescar2('tblCA','txtPageSizeCA');CalcularPaginacionJS('tblCA','lblCantiRegisCA','txtPageSizeCA','lblCantiPagiCA','lblPaginaActualCA')" value="5">
						</td>
		</table>            

	  <table width="90%" border="1" class="cCeldaSelec" id="tblNoCA" align="center" <%if bCAPendientes then %>style="display:none" <%end if%>>
        <tr> 
          <td colspan="3" >No Existen Cambios de Alcance Pendientes</td>
        </tr>
       </table>      
      
    </td>
  </tr>  
  <%end if%>
</table>
<DIV id="Mensaje" class="Mensaje" ALIGN="CENTER" style="height:30;width:350;position:absolute;left:200;top:150;Display:none;z_index:10" >Aguarde...
</DIV>
<%

'Destruyo objetos que ya no utilizo
Set oXml = nothing
Set oXmlTareas = nothing
Set oCbo = nothing
Set oSeguridad = nothing
%>
</div>
<iframe id="frmReporte" name="frmReporte" style="display:block" width="1px" height="1px"  ></iframe>
</body>
<% 
if Err.number <> 0 then

 Response.Redirect ("../fr_Mensaje.asp?sError=" & sError & "&sDetalleTecnico=" & Server.HTMLEncode (sDetalleTecnico ))
end if 
%>
</html>
